Vertical or mirrored tab bar

Description

If you use the attribute #TabBarGadget_Vertical the whole bar is rotated vertical. If you use the attribute #TabBarGadget_MirroredTabs the tab alignment is mirrored. In combination of this attributes you can use the tab bar on all sides.

Example

EnableExplicit

XIncludeFile "TabBarGadget.pbi"

Enumeration
  #Window
  #GadgetTop
  #GadgetLeft
  #GadgetRight
  #GadgetBottom
EndEnumeration

Define Attributes.i = #TabBarGadget_CloseButton|#TabBarGadget_BottomLine

OpenWindow(#Window, 0, 0, 600, 600, "TabBarGadget", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

TabBarGadget(#GadgetTop, 35, 10, WindowWidth(#Window)-70, 25, Attributes, #Window)
  AddTabBarGadgetItem(#GadgetTop, #PB_Default, "This is an")
  AddTabBarGadgetItem(#GadgetTop, #PB_Default, "example for")
  AddTabBarGadgetItem(#GadgetTop, #PB_Default, "tab bar on")
  AddTabBarGadgetItem(#GadgetTop, #PB_Default, "the top")

TabBarGadget(#GadgetLeft, 10, 35, 25, WindowHeight(#Window)-70, Attributes|#TabBarGadget_Vertical, #Window)
  AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "This is an")
  AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "example for")
  AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "a vertical")
  AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "tab bar on")
  AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "left hand side")

TabBarGadget(#GadgetRight, 565, 35, 25, WindowHeight(#Window)-70, Attributes|#TabBarGadget_Vertical|#TabBarGadget_MirroredTabs, #Window)
  AddTabBarGadgetItem(#GadgetRight, #PB_Default, "This is an")
  AddTabBarGadgetItem(#GadgetRight, #PB_Default, "example for")
  AddTabBarGadgetItem(#GadgetRight, #PB_Default, "a vertical mirrored")
  AddTabBarGadgetItem(#GadgetRight, #PB_Default, "tab bar on")
  AddTabBarGadgetItem(#GadgetRight, #PB_Default, "right hand side")

TabBarGadget(#GadgetBottom, 35, 565, WindowWidth(#Window)-70, 25, Attributes|#TabBarGadget_MirroredTabs, #Window)
  AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "This is an")
  AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "example for")
  AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "a mirrored")
  AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "tab bar on")
  AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "the bottom")

Repeat
  
  Select WaitWindowEvent()
      
    Case #PB_Event_CloseWindow
      End
      
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #GadgetTop, #GadgetLeft, #GadgetRight, #GadgetBottom
          Select EventType()
            Case #TabBarGadget_EventType_CloseItem
              RemoveTabBarGadgetItem(EventGadget(), #TabBarGadgetItem_Event)
          EndSelect
      EndSelect
      
  EndSelect
  
ForEver